home *** CD-ROM | disk | FTP | other *** search
- set echogrammar standard;
- /*Running demo, a test batch file.
-
- Entering a simple formula: */a-b;
- /*generating a simple radical
-
- */
- rad:%^(1/2);
- /*Now that the simple radical has been defined, it will split any
- radicals of which it is a factor
-
- */
- rad2:(a^2-b^2)^(1/2);
- /*The total differential is:
-
- */
- %';
- /*The derivative with respect to b is:
-
- */
- diff(rad2,b);
- /*lets try generating a 3rd order field extension
-
- */
- foo3:{a|a^3+a*x+y};
- /*does the original formula extinguish the extension?
-
- */
- %^3+%*x+y;
- /*now, lets see what the derivative
- in terms of the field extension is
-
- */
- foo3';
- /*The derivative with respect to x is:
-
- */
- diff(foo3,x);
- /*done
-
- */
- set echogrammar null;
-